﻿Public Class GestorFiltros

    Public Sub getFiltro(ByVal objFiltro As Laboratorio_Negocio.Filtros) 'As Laboratorio_Negocio.Filtros
        Dim objDataAccess As laboratorio_Datos.DataAccess = New laboratorio_Datos.DataAccess
        Dim objDataReader As OleDb.OleDbDataReader
        objDataReader = objDataAccess.getDataReader("SELECT nombre,sql_comienza,sql_finaliza FROM LABT_FILTROS WHERE id_filtro='" & objFiltro.idFiltro & "'")
        While objDataReader.Read
            objFiltro.nombre = objDataReader.Item(0).ToString
            objFiltro.sqlComienza = objDataReader.Item(1).ToString
            objFiltro.sqlTermina = objDataReader.Item(2).ToString
        End While
        objDataAccess.CloseConnection()
    End Sub

End Class
